Dim $pos0,$Flag,$i

AutoItSetOption ("TrayIconHide",1)
AutoItSetOption ("TrayAutoPause",0)

$pos0 = MouseGetPos()
$Flag = 0
For $i = 0 to 2000
	$pos1 = MouseGetPos()
	if (Abs($pos1[0]-$pos0[0]) + Abs($pos1[1]-$pos0[1])) > 50  Then
		Exit
	EndIf

	if($Flag = 0 ) Then
		$Flag = 1
		MouseMove($pos0[0],$pos0[1]-1)
	Else
		$Flag = 0
		MouseMove($pos0[0],$pos0[1]+1)
	EndIf

	Sleep(600)
Next
Shutdown(9,"No Body Use After 20 Minutue!")